# A tibble: 46 x 61
   playlist_id  playlist_name playlist_img     playlist_owner_… playlist_owner_…
   <chr>        <chr>         <chr>            <chr>            <chr>           
 1 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 2 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 3 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 4 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 5 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 6 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 7 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 8 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
 9 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
10 61rge4nRNpM… Magnus Corpus https://mosaic.… Bram Slangen     1115602359      
# … with 36 more rows, and 56 more variables: danceability <dbl>, energy <dbl>,
#   key <int>, loudness <dbl>, mode <int>, speechiness <dbl>,
#   acousticness <dbl>, instrumentalness <dbl>, liveness <dbl>, valence <dbl>,
#   tempo <dbl>, track.id <chr>, analysis_url <chr>, time_signature <int>,
#   added_at <chr>, is_local <lgl>, primary_color <lgl>, added_by.href <chr>,
#   added_by.id <chr>, added_by.type <chr>, added_by.uri <chr>,
#   added_by.external_urls.spotify <chr>, track.artists <list>,
#   track.available_markets <list>, track.disc_number <int>,
#   track.duration_ms <int>, track.episode <lgl>, track.explicit <lgl>,
#   track.href <chr>, track.is_local <lgl>, track.name <chr>,
#   track.popularity <int>, track.preview_url <chr>, track.track <lgl>,
#   track.track_number <int>, track.type <chr>, track.uri <chr>,
#   track.album.album_type <chr>, track.album.artists <list>,
#   track.album.available_markets <list>, track.album.href <chr>,
#   track.album.id <chr>, track.album.images <list>, track.album.name <chr>,
#   track.album.release_date <chr>, track.album.release_date_precision <chr>,
#   track.album.total_tracks <int>, track.album.type <chr>,
#   track.album.uri <chr>, track.album.external_urls.spotify <chr>,
#   track.external_ids.isrc <chr>, track.external_urls.spotify <chr>,
#   video_thumbnail.url <lgl>, key_name <chr>, mode_name <chr>, key_mode <chr>

Call:
C5.0.default(x = x, y = y, trials = 1, control = C50::C5.0Control(minCases =
 2, sample = 0))


C5.0 [Release 2.07 GPL Edition]     Mon Mar 22 12:42:38 2021
-------------------------------

Class specified by attribute `outcome'

Read 46 cases (35 attributes) from undefined.data

Decision tree:

valence > -0.3006062:
:...F#\|Gb > 0.1058918:
:   :...C#\|Db <= -0.001526617: [S1]
:   :   C#\|Db > -0.001526617:
:   :   :...valence <= 1.290431: I Shot The Sheriff (2/1)
:   :       valence > 1.290431: I Fought the Law (3/2)
:   F#\|Gb <= 0.1058918:
:   :...A <= -0.04519526:
:       :...A <= -0.8684498: Proud Mary (2)
:       :   A > -0.8684498: All Along the Watchtower (3/1)
:       A > -0.04519526: [S2]
valence <= -0.3006062:
:...C > 0.3094732:
    :...c02 <= -0.5472113:
    :   :...c04 <= -0.7803063: The Sound of Silence (3/1)
    :   :   c04 > -0.7803063:
    :   :   :...danceability <= -1.981513: Bridge Over Troubled Water (2)
    :   :       danceability > -1.981513: Make You Feel My Love (2)
    :   c02 > -0.5472113:
    :   :...liveness <= -0.3032998: Changes (2)
    :       liveness > -0.3032998:
    :       :...speechiness <= -0.4279546: Tiny Dancer (2)
    :           speechiness > -0.4279546: Resolution (2)
    C <= 0.3094732:
    :...E <= -0.4458756:
        :...danceability <= 0.05972447: Hurt - Live from Werchter (2/1)
        :   danceability > 0.05972447: Hurt (2)
        E > -0.4458756:
        :...liveness > 0.1768273: Kids (2/1)
            liveness <= 0.1768273:
            :...danceability <= -0.7875816: Hallelujah (2/1)
                danceability > -0.7875816:
                :...energy <= 0.05810912: Your Song (2)
                    energy > 0.05810912: Nothing Compares 2 U (2)

SubTree [S1]

c02 <= 0.6041148: Dancing In The Moonlight (It's Caught Me In It's Spotlight) (2/1)
c02 > 0.6041148: I Fought the Law - Single Version (3/2)

SubTree [S2]

danceability <= 0.2843889: Dancing in the Moonlight (Its Caught Me in Its Spotlight) - Recorded at Spotify Studios NYC (2/1)
danceability > 0.2843889: [S3]

SubTree [S3]

speechiness <= -0.3893372: Knocking On Heaven's Door - Live At Hammersmith Odeon (2/1)
speechiness > -0.3893372: I Heard It Through The Grapevine (2)


Evaluation on training data (46 cases):

        Decision Tree   
      ----------------  
      Size      Errors  

        21   13(28.3%)   <<


      Class                                                                                         Cases   False   False
                                                                                                              Pos     Neg
      -----                                                                                         -----   -----   -----
      All Along the Watchtower                                                                          2       1       0
      Bridge Over Troubled Water                                                                        2       0       0
      Changes                                                                                           2       0       0
      Dancing In The Moonlight (It's Caught Me In It's Spotlight)                                       1       1       0
      Dancing in the Moonlight (Its Caught Me in Its Spotlight) - Recorded at Spotify Studios NYC       1       1       0
      Hallelujah                                                                                        2       1       1
      Higher Ground                                                                                     1       0       1
      Higher Ground - Remastered                                                                        1       0       1
      Hurt                                                                                              2       0       0
      Hurt - Live from Werchter                                                                         1       1       0
      I Fought the Law                                                                                  1       2       0
      I Fought the Law - Single Version                                                                 1       2       0
      I Heard It Through The Grapevine                                                                  2       0       0
      I Shot The Sheriff                                                                                1       1       0
      I Shot The Sheriff - Edited Version                                                               1       0       1
      Kids                                                                                              1       1       0
      Kids (feat. MKLA)                                                                                 1       0       1
      Knockin' On Heaven's Door                                                                         2       0       2
      Knocking On Heaven's Door - Live At Hammersmith Odeon                                             1       1       0
      Make You Feel My Love                                                                             2       0       0
      Nothing Compares 2 U                                                                              2       0       0
      Proud Mary                                                                                        2       0       0
      Resolution                                                                                        2       0       0
      The Sound of Silence                                                                              2       1       0
      Tiny Dancer                                                                                       2       0       0
      Walk This Way                                                                                     1       0       1
      Walk This Way (feat. Aerosmith)                                                                   1       0       1
      We Can Work It Out                                                                                1       0       1
      We Can Work It Out - Remastered 2015                                                              1       0       1
      With A Little Help From My Friends                                                                1       0       1
      With A Little Help From My Friends - Remastered 2009                                              1       0       1
      Your Song                                                                                         2       0       0


    Attribute usage:

    100.00% valence
     54.35% C
     45.65% F#\|Gb
     43.48% danceability
     39.13% c02
     30.43% liveness
     26.09% E
     23.91% A
     21.74% C#\|Db
     17.39% speechiness
     15.22% c04
      8.70% energy


Time: 0.0 secs

Latest updates {.storyboard} =====================================================================

Classifier


As is not really visible since i was not able to make a mosaic or anything, my classification went horrible. I was not able to use tracknames, since they are all the same, which is not allowed. Factoring (for some reason) did not help as was shown for playlist = factor(playlist). I am now considering new option to organize my playlists in a way that classification can be used. Perhaps by assigning originals and covers, then seeing if it is capable of finding the right original with the right cover. However this would require a significant amount of new playlists, as otherwise it just uses each track.name as a separate class. Which is useless.

Clustering

Clustering


My clustering went better than my classification, however here the same issue occurs that it does not allow for the same names. I am going to see if it possible to use different factors for each playlist such that I can use the the trach kanmes instead of the id’s. However this too would require a significant amount of new playlist. I did not have time yet to make these.

Tempo

Tempo analysis.


Even though the Bob Dylan version and the Eric clapton version have a much slower feel that the Guns ’n Roses version, the tempograms do not seem to differ to much in BPM. I have tried verifying the tempo’s through Google because of this reason. The tempo estimations for the Bob Dylan version and the Guns ’n roses version seem to vary rather much somewhere between 65 and 140 bpm, however for the Eric Clapton version they seem pretty consistent. Which I thought was interesting considering this shows two pretty strong tempo “powers”. Something else I think is interesting to note is the tempo increase in the beginning and tempo decrease at the end in the Guns ’n Roses version, this change is clearly audible, which to me might be an indication that the estimations are rather accurate. Nonetheless these tempo estimations shown here are an interesting indication that the tempo more or less remained the same over the differnet cover versions.

Novelty


Even though the grids vary (pay attention to different x and y scales), the degree of novelty does not seem to differ significantly between the versions. We see one outlier in the guns n roses graph that seems to marginalize the other values around 240. This is a little spike after a silent part, where they start singing “knock knock knocking” again. Other than that we see in general novelties with a maximum of 15. Especially in the Eric Clapton version. Which is expected since this is a rather consistent song.

irrelevant


Some text here

INTRO

Plot tab

For my first representation I have tried to create an overview of the different versions of cover songs in my Corpus. Sadly I have had some trouble getting the artists names from Spotify which made me unable to give information about this. Even a more major issue I faced was the group_by function, which can only group songs that have the exact same title. Cover songs sadly do not always have exctly the same title. In the graph below you see an attempt to show a basic distribution of my Corpus based on the energy (x-axis) and valence (y-axis). I chose these two values to give an insight in the overal feel of a song according to spotify. With this I attempted to create a feeling of how far the feel of the cover songs was apart from the original (and possibly other covers of the same song), to give a stronger sense of the differences I attempted to draw lines between different versions of the same song. It is visble that I still struggle with correct imlementation, I seem to lose colors and visibility now I have corrected the issue with the song names.

Wavferform tab

As you can see ive included my waveform comparisons between different versions of Knocking on heavens door. I’ve chosen this one, because it shows absolutely no similarity what so ever. For the Bob Dylan version this makes sense as it is significantly shorter than the other version. However, the Eric Clapton version and the Guns ’N Roses version are very similar in duration. I think this is a very interesting representation on how different the “same” songs can be. I will try to show this more with graphs in the future, as making waveform analysis for all songs is not feasible nor informative. I tried showing them in a rows overview, which is nicer, however because of the code that is shown this really messes up the overview.

The messed up plot

Waveform analysis

Bobby VS. Eric

Bobby VS. The Guns

Eric VS. The Guns

pitch and timbre

Dylan


Some lines here

Clapton


Some text here

Roses


Some lines here

Timbre comparison

List of 93
 $ line                      :List of 6
  ..$ colour       : chr "black"
  ..$ size         : num 0.5
  ..$ linetype     : num 1
  ..$ lineend      : chr "butt"
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ rect                      :List of 5
  ..$ fill         : chr "white"
  ..$ colour       : chr "black"
  ..$ size         : num 0.5
  ..$ linetype     : num 1
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ text                      :List of 11
  ..$ family       : chr ""
  ..$ face         : chr "plain"
  ..$ colour       : chr "black"
  ..$ size         : num 11
  ..$ hjust        : num 0.5
  ..$ vjust        : num 0.5
  ..$ angle        : num 0
  ..$ lineheight   : num 0.9
  ..$ margin       : 'margin' num [1:4] 0points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : logi FALSE
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ title                     : NULL
 $ aspect.ratio              : NULL
 $ axis.title                : NULL
 $ axis.title.x              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 2.75points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.title.x.top          :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 0
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 2.75points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.title.x.bottom       : NULL
 $ axis.title.y              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 1
  ..$ angle        : num 90
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 2.75points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.title.y.left         : NULL
 $ axis.title.y.right        :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 0
  ..$ angle        : num -90
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2.75points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text                 :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : chr "grey30"
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.x               :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 2.2points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.x.top           :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 0
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 2.2points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.x.bottom        : NULL
 $ axis.text.y               :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 1
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 2.2points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.y.left          : NULL
 $ axis.text.y.right         :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 0
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2.2points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.ticks                :List of 6
  ..$ colour       : chr "grey20"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ axis.ticks.x              : NULL
 $ axis.ticks.x.top          : NULL
 $ axis.ticks.x.bottom       : NULL
 $ axis.ticks.y              : NULL
 $ axis.ticks.y.left         : NULL
 $ axis.ticks.y.right        : NULL
 $ axis.ticks.length         : 'simpleUnit' num 2.75points
  ..- attr(*, "unit")= int 8
 $ axis.ticks.length.x       : NULL
 $ axis.ticks.length.x.top   : NULL
 $ axis.ticks.length.x.bottom: NULL
 $ axis.ticks.length.y       : NULL
 $ axis.ticks.length.y.left  : NULL
 $ axis.ticks.length.y.right : NULL
 $ axis.line                 :List of 6
  ..$ colour       : chr "black"
  ..$ size         : 'rel' num 1
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ axis.line.x               : NULL
 $ axis.line.x.top           : NULL
 $ axis.line.x.bottom        : NULL
 $ axis.line.y               : NULL
 $ axis.line.y.left          : NULL
 $ axis.line.y.right         : NULL
 $ legend.background         :List of 5
  ..$ fill         : NULL
  ..$ colour       : logi NA
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ legend.margin             : 'margin' num [1:4] 5.5points 5.5points 5.5points 5.5points
  ..- attr(*, "unit")= int 8
 $ legend.spacing            : 'simpleUnit' num 11points
  ..- attr(*, "unit")= int 8
 $ legend.spacing.x          : NULL
 $ legend.spacing.y          : NULL
 $ legend.key                : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ legend.key.size           : 'simpleUnit' num 1.2lines
  ..- attr(*, "unit")= int 3
 $ legend.key.height         : NULL
 $ legend.key.width          : NULL
 $ legend.text               :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ legend.text.align         : NULL
 $ legend.title              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 0
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ legend.title.align        : NULL
 $ legend.position           : chr "right"
 $ legend.direction          : NULL
 $ legend.justification      : chr "center"
 $ legend.box                : NULL
 $ legend.box.just           : NULL
 $ legend.box.margin         : 'margin' num [1:4] 0cm 0cm 0cm 0cm
  ..- attr(*, "unit")= int 1
 $ legend.box.background     : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ legend.box.spacing        : 'simpleUnit' num 11points
  ..- attr(*, "unit")= int 8
 $ panel.background          :List of 5
  ..$ fill         : chr "white"
  ..$ colour       : logi NA
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ panel.border              : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ panel.spacing             : 'simpleUnit' num 5.5points
  ..- attr(*, "unit")= int 8
 $ panel.spacing.x           : NULL
 $ panel.spacing.y           : NULL
 $ panel.grid                :List of 6
  ..$ colour       : chr "grey92"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ panel.grid.major          : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ panel.grid.minor          : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ panel.grid.major.x        : NULL
 $ panel.grid.major.y        : NULL
 $ panel.grid.minor.x        : NULL
 $ panel.grid.minor.y        : NULL
 $ panel.ontop               : logi FALSE
 $ plot.background           :List of 5
  ..$ fill         : NULL
  ..$ colour       : chr "white"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ plot.title                :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 1.2
  ..$ hjust        : num 0
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 5.5points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.title.position       : chr "panel"
 $ plot.subtitle             :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 0
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 5.5points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.caption              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : num 1
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 5.5points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.caption.position     : chr "panel"
 $ plot.tag                  :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 1.2
  ..$ hjust        : num 0.5
  ..$ vjust        : num 0.5
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.tag.position         : chr "topleft"
 $ plot.margin               : 'margin' num [1:4] 5.5points 5.5points 5.5points 5.5points
  ..- attr(*, "unit")= int 8
 $ strip.background          :List of 5
  ..$ fill         : chr "white"
  ..$ colour       : chr "black"
  ..$ size         : 'rel' num 2
  ..$ linetype     : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ strip.background.x        : NULL
 $ strip.background.y        : NULL
 $ strip.placement           : chr "inside"
 $ strip.text                :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : chr "grey10"
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 4.4points 4.4points 4.4points 4.4points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ strip.text.x              : NULL
 $ strip.text.y              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : num -90
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ strip.switch.pad.grid     : 'simpleUnit' num 2.75points
  ..- attr(*, "unit")= int 8
 $ strip.switch.pad.wrap     : 'simpleUnit' num 2.75points
  ..- attr(*, "unit")= int 8
 $ strip.text.y.left         :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : num 90
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 - attr(*, "class")= chr [1:2] "theme" "gg"
 - attr(*, "complete")= logi TRUE
 - attr(*, "validate")= logi TRUE

We can see a bigger magnitude for the guns n roses song in more pitches than for the other two songs. This is to be expected hwne listening to these songs. The guns n roses version has the most varriation in it, and actually sounds “biggest”. The clapton verson is much more calm and steady. Where the Dylan version is actual pretty quite and steady. Which is since its much smaller length also to be expected.

Some chords

Some chords


I am currently working on a different way to extract the most dominant/stronger occuring chords from a variaty of sorts. If I manage this I will include this here, otherwise some extra chords graphs will be added from a variety of songs from the corpus.